BCI NET 2/BCI NET 2.iso/archives/programming/source/amiglobe099src.lha/Ami-Globe/AmiGlobe_Interf.c

C/C++ Source or Header | 1994-11-17 | 31.1 KB | 1,288 lines

#ifndef MAKE_ID
#define MAKE_ID(a,b,c,d) ((ULONG) (a)<<24 | (ULONG) (b)<<16 | (ULONG) (c)<<8 | (ULONG) (d))
#endif

#ifdef _DCC
#define __inline
#endif

#include "AmiGlobe_Interf.h"

struct ObjApp * CreateApp(void)
{
    struct ObjApp * Object;

    APTR    GROUP_ROOT_Cmd, GR_commandes, GR_infos, GR_infos_latlon, LA_lon, LA_latitude;
    APTR    GR_grp_pays_courant, LA_Sel, LA_courant, GROUP_ROOT_parametres, GR_Param_Gene;
    APTR    LA_Lakes, LA_Rivers, LA_Latitudes, LA_label_Country_Name, LA_coord;
    APTR    LA_Fill_Pays, LA_Elements, LA_Trajectoires, LA_Distance, LA_Scale;
    APTR    LA_Area, GR_grp_12, GR_3d, obj_aux0, obj_aux1, obj_aux2, obj_aux3;
    APTR    obj_aux4, obj_aux5, Space_0, GROUP_ROOT_2, GROUP_ROOT_4, obj_aux6;
    APTR    obj_aux7, obj_aux8, obj_aux9, obj_aux10, obj_aux11, GROUP_ROOT_5;
    APTR    GROUP_ROOT_6, GR_grp_11, GROUP_ROOT_10, GR_grp_30, GR_grp_24, Space_1;
    APTR    GR_Edit_Donnee, GR_File_Donnee, GR_Virtuel, obj_aux12, obj_aux13;
    APTR    GR_Infos_Donnees, LA_Nom_Titre, LA_Nom_Label, LA_Type_Titre, LA_Titre_Label;
    APTR    Space_2, GR_Operations, GROUP_ROOT_8, GR_Vertical_Gauche, GR_Horizontal_Gauche;
    APTR    GR_Vertical_Centre, GR_Action, GR_Vertical_Droite, GROUP_ROOT_13;
    APTR    GR_grp_28, obj_aux14, obj_aux15, GR_grp_29, GROUP_ROOT_organisation;
    APTR    GR_info_organisation, LA_organisation_officiel, GROUP_ROOT_INFO_ELEM;
    APTR    GR_grp_41, LA_lat, GR_grp_42, LA_latitude_element, GROUP_ROOT_17;
    APTR    GR_grp_45, LA_classement, GROUP_ROOT_info, REC_label_0;

    if (!(Object = AllocVec(sizeof(struct ObjApp), MEMF_PUBLIC|MEMF_CLEAR)))
        return(NULL);

    Object->STR_TX_lon = NULL;
    Object->STR_TX_lat = NULL;
    Object->STR_TX_Selectionne = NULL;
    Object->STR_TX_courant = NULL;
    Object->STR_TX_Selected_Element = NULL;
    Object->STR_TX_Pays = NULL;
    Object->STR_TX_Latitude = NULL;
    Object->STR_TX_Longitude = NULL;
    Object->STR_TX_Caracteristique = NULL;
    Object->STR_TX_organisation_officiel = NULL;
    Object->STR_TX_nom_element = NULL;
    Object->STR_TX_type_element = NULL;
    Object->STR_TX_pays_element = "?";
    Object->STR_TX_longitude_element = "?";
    Object->STR_TX_latitude_element = "?";
    Object->STR_TX_caracteristique_element = NULL;
    Object->STR_TX_classement = NULL;

    Object->CY_ProjContent[0] = "flat";
    Object->CY_ProjContent[1] = "Mercator's";
    Object->CY_ProjContent[2] = "spherical";
    Object->CY_ProjContent[3] = "3D";
    Object->CY_ProjContent[4] = NULL;
    Object->RA_Type_DataContent[0] = "Donnee Reel";
    Object->RA_Type_DataContent[1] = "Donnee Virtuelle (formee d'autres donnees)";
    Object->RA_Type_DataContent[2] = NULL;
    Object->RA_label_4Content[0] = "X";
    Object->RA_label_4Content[1] = "/";
    Object->RA_label_4Content[2] = "+";
    Object->RA_label_4Content[3] = "-";
    Object->RA_label_4Content[4] = NULL;
    Object->RA_Type_GraphContent[0] = "Data only";
    Object->RA_Type_GraphContent[1] = "BarChart data (2d)";
    Object->RA_Type_GraphContent[2] = "BarChart 3D";
    Object->RA_Type_GraphContent[3] = "Color plages";
    Object->RA_Type_GraphContent[4] = NULL;
    Object->CY_organisationContent[0] = "error: informations not available";
    Object->CY_organisationContent[1] = NULL;

    Object->BT_Zoom = SimpleButton("_Zoom In");

    Object->BT_Zoom_Out = SimpleButton("Z_oom Out");

    Object->BT_Redraw = SimpleButton("_Redraw");

    Object->BT_Zoom_Reset = SimpleButton("Rese_t");

    Object->BT_Info = SimpleButton("_Infos");

    Object->CY_Proj = CycleObject,
        MUIA_HelpNode, "CY_Proj",
        MUIA_Cycle_Entries, Object->CY_ProjContent,
    End;

    GR_commandes = GroupObject,
        MUIA_Weight, 0,
        MUIA_Group_Horiz, TRUE,
        Child, Object->BT_Zoom,
        Child, Object->BT_Zoom_Out,
        Child, Object->BT_Redraw,
        Child, Object->BT_Zoom_Reset,
        Child, Object->BT_Info,
        Child, Object->CY_Proj,
    End;

    LA_lon = Label("Lon:");

    Object->TX_lon = TextObject,
        MUIA_HelpNode, "TX_lon",
        MUIA_Background, MUII_BACKGROUND,
        MUIA_Frame, MUIV_Frame_Text,
        MUIA_Text_Contents, Object->STR_TX_lon,
    End;

    LA_latitude = Label("Lat:");

    Object->TX_lat = TextObject,
        MUIA_HelpNode, "TX_lat",
        MUIA_Background, MUII_BACKGROUND,
        MUIA_Frame, MUIV_Frame_Text,
        MUIA_Text_Contents, Object->STR_TX_lat,
    End;

    GR_infos_latlon = GroupObject,
        MUIA_Weight, 45,
        MUIA_Group_Horiz, TRUE,
        Child, LA_lon,
        Child, Object->TX_lon,
        Child, LA_latitude,
        Child, Object->TX_lat,
    End;

    LA_Sel = Label("sel:");

    Object->TX_Selectionne = TextObject,
        MUIA_HelpNode, "TX_Selectionne",
        MUIA_Background, MUII_BACKGROUND,
        MUIA_Frame, MUIV_Frame_Text,
        MUIA_Text_Contents, Object->STR_TX_Selectionne,
        MUIA_Text_SetMin, TRUE,
    End;

    LA_courant = Label("   ");

    Object->TX_courant = TextObject,
        MUIA_HelpNode, "TX_courant",
        MUIA_Background, MUII_BACKGROUND,
        MUIA_Frame, MUIV_Frame_Text,
        MUIA_Text_Contents, Object->STR_TX_courant,
    End;

    GR_grp_pays_courant = GroupObject,
        MUIA_Group_Horiz, TRUE,
        Child, LA_Sel,
        Child, Object->TX_Selectionne,
        Child, LA_courant,
        Child, Object->TX_courant,
    End;

    GR_infos = GroupObject,
        MUIA_Weight, 0,
        MUIA_Group_Horiz, TRUE,
        Child, GR_infos_latlon,
        Child, GR_grp_pays_courant,
    End;

    GROUP_ROOT_Cmd = GroupObject,
        Child, GR_commandes,
        Child, GR_infos,
    End;

    Object->WI_Cmd = WindowObject,
        MUIA_Window_Title, "AmiGlobe v0.99",
        MUIA_HelpNode, "WI_Cmd",
        MUIA_Window_ID, MAKE_ID('0', 'W', 'I', 'N'),
        MUIA_Window_SizeGadget, FALSE,
        WindowContents, GROUP_ROOT_Cmd,
    End;

    LA_Lakes = Label("Lakes");

    Object->CH_Lacs = CheckMark(FALSE);

    LA_Rivers = Label("Rivers");

    Object->CH_Riv = CheckMark(FALSE);

    LA_Latitudes = Label("Squaring");

    Object->CH_LonLat = CheckMark(FALSE);

    LA_label_Country_Name = Label("Country Names");

    Object->CH_Noms = CheckMark(FALSE);

    LA_coord = Label("Coordinates");

    Object->CH_Coord = CheckMark(FALSE);

    LA_Fill_Pays = Label("Fill Countries");

    Object->CH_Fill_Pays = CheckMark(FALSE);

    LA_Elements = Label("Elements");

    Object->CH_Elements = CheckMark(FALSE);

    LA_Trajectoires = Label("Paths");

    Object->CH_Trajectoires = CheckMark(FALSE);

    LA_Distance = Label("Distance");

    Object->CH_Distance = CheckMark(FALSE);

    LA_Scale = Label("Scale");

    Object->CH_Scale = CheckMark(FALSE);

    LA_Area = Label("Area");

    Object->CH_Area = CheckMark(FALSE);

    GR_Param_Gene = GroupObject,
        MUIA_Frame, MUIV_Frame_Group,
        MUIA_FrameTitle, "Show:",
        MUIA_Group_Columns, 2,
        Child, LA_Lakes,
        Child, Object->CH_Lacs,
        Child, LA_Rivers,
        Child, Object->CH_Riv,
        Child, LA_Latitudes,
        Child, Object->CH_LonLat,
        Child, LA_label_Country_Name,
        Child, Object->CH_Noms,
        Child, LA_coord,
        Child, Object->CH_Coord,
        Child, LA_Fill_Pays,
        Child, Object->CH_Fill_Pays,
        Child, LA_Elements,
        Child, Object->CH_Elements,
        Child, LA_Trajectoires,
        Child, Object->CH_Trajectoires,
        Child, LA_Distance,
        Child, Object->CH_Distance,
        Child, LA_Scale,
        Child, Object->CH_Scale,
        Child, LA_Area,
        Child, Object->CH_Area,
    End;

    Object->SL_x = SliderObject,
        MUIA_HelpNode, "SL_x",
        MUIA_Slider_Min, 0,
        MUIA_Slider_Max, 180,
        MUIA_Slider_Level, 0,
    End;

    obj_aux1 = Label2("X");

    obj_aux0 = GroupObject,
        MUIA_Group_Columns, 2,
        Child, obj_aux1,
        Child, Object->SL_x,
    End;

    Object->SL_y = SliderObject,
        MUIA_HelpNode, "SL_y",
        MUIA_Slider_Min, 0,
        MUIA_Slider_Max, 180,
        MUIA_Slider_Level, 0,
    End;

    obj_aux3 = Label2("Y");

    obj_aux2 = GroupObject,
        MUIA_Group_Columns, 2,
        Child, obj_aux3,
        Child, Object->SL_y,
    End;

    Object->SL_z = SliderObject,
        MUIA_HelpNode, "SL_z",
        MUIA_Slider_Min, 0,
        MUIA_Slider_Max, 180,
        MUIA_Slider_Level, 0,
    End;

    obj_aux5 = Label2("Z");

    obj_aux4 = GroupObject,
        MUIA_Group_Columns, 2,
        Child, obj_aux5,
        Child, Object->SL_z,
    End;

    Object->IM_Rectangle = ImageObject,
        MUIA_Image_Spec, 32,
        MUIA_HelpNode, "IM_Rectangle",
        MUIA_Frame, MUIV_Frame_ImageButton,
        MUIA_Image_FreeVert, TRUE,
        MUIA_Image_FreeHoriz, TRUE,
        MUIA_FixHeight, 50,
        MUIA_FixWidth, 100,
    End;

    GR_3d = GroupObject,
        MUIA_Weight, 101,
        MUIA_Frame, MUIV_Frame_Group,
        MUIA_FrameTitle, "3D",
        Child, obj_aux0,
        Child, obj_aux2,
        Child, obj_aux4,
        Child, Object->IM_Rectangle,
    End;

    Space_0 = HVSpace;

    GR_grp_12 = GroupObject,
        Child, GR_3d,
        Child, Space_0,
    End;

    GROUP_ROOT_parametres = GroupObject,
        MUIA_Group_Horiz, TRUE,
        Child, GR_Param_Gene,
        Child, GR_grp_12,
    End;

    Object->WI_Param = WindowObject,
        MUIA_Window_Title, "Display Parameters",
        MUIA_HelpNode, "WI_Param",
        MUIA_Window_ID, MAKE_ID('1', 'W', 'I', 'N'),
        WindowContents, GROUP_ROOT_parametres,
    End;

    Object->LV_Pays = ListObject,
        MUIA_Frame, MUIV_Frame_InputList,
    End;

    Object->LV_Pays = ListviewObject,
        MUIA_HelpNode, "LV_Pays",
        MUIA_Listview_MultiSelect, MUIV_Listview_MultiSelect_Default,
        MUIA_Listview_DoubleClick, TRUE,
        MUIA_Listview_Input, TRUE,
        MUIA_Listview_List, Object->LV_Pays,
    End;

    GROUP_ROOT_2 = GroupObject,
        Child, Object->LV_Pays,
    End;

    Object->WI_Sel_Cty = WindowObject,
        MUIA_Window_Title, "Country",
        MUIA_HelpNode, "WI_Sel_Cty",
        MUIA_Window_ID, MAKE_ID('2', 'W', 'I', 'N'),
        WindowContents, GROUP_ROOT_2,
    End;

    Object->BT_Move = SimpleButton("_Move_Pt");

    Object->BT_Show_Pt = SimpleButton("_Show Pt");

    Object->BT_Show_Seg = SimpleButton("_Show Seg");

    Object->BT_Edit = SimpleButton("_edit");

    Object->BT_Create_Pays = SimpleButton("_Cree Pays");

    Object->BT_New_Border = SimpleButton("New border");

    Object->BT_New_Point = SimpleButton("New Point");

    Object->BT_End_Border = SimpleButton("End Border");

    Object->STR_Nom_Border = StringObject,
        MUIA_Frame, MUIV_Frame_String,
        MUIA_HelpNode, "STR_Nom_Border",
    End;

    obj_aux7 = Label2("nom:");

    obj_aux6 = GroupObject,
        MUIA_Group_Columns, 2,
        Child, obj_aux7,
        Child, Object->STR_Nom_Border,
    End;

    Object->STR_Code = StringObject,
        MUIA_Frame, MUIV_Frame_String,
        MUIA_HelpNode, "STR_Code",
    End;

    obj_aux9 = Label2("Code");

    obj_aux8 = GroupObject,
        MUIA_Group_Columns, 2,
        Child, obj_aux9,
        Child, Object->STR_Code,
    End;

    Object->SL_Code_Point = SliderObject,
        MUIA_HelpNode, "SL_Code_Point",
        MUIA_Slider_Min, 0,
        MUIA_Slider_Max, 5,
        MUIA_Slider_Level, 0,
    End;

    obj_aux11 = Label2("Code point");

    obj_aux10 = GroupObject,
        MUIA_Group_Columns, 2,
        Child, obj_aux11,
        Child, Object->SL_Code_Point,
    End;

    GROUP_ROOT_4 = GroupObject,
        Child, Object->BT_Move,
        Child, Object->BT_Show_Pt,
        Child, Object->BT_Show_Seg,
        Child, Object->BT_Edit,
        Child, Object->BT_Create_Pays,
        Child, Object->BT_New_Border,
        Child, Object->BT_New_Point,
        Child, Object->BT_End_Border,
        Child, obj_aux6,
        Child, obj_aux8,
        Child, obj_aux10,
    End;

    Object->WI_Cmd_Panel = WindowObject,
        MUIA_Window_Title, "Cmd Panel",
        MUIA_HelpNode, "WI_Cmd_Panel",
        MUIA_Window_ID, MAKE_ID('3', 'W', 'I', 'N'),
        WindowContents, GROUP_ROOT_4,
    End;

    Object->LV_Continent = ListObject,
        MUIA_Frame, MUIV_Frame_InputList,
    End;

    Object->LV_Continent = ListviewObject,
        MUIA_HelpNode, "LV_Continent",
        MUIA_Listview_MultiSelect, MUIV_Listview_MultiSelect_Default,
        MUIA_Listview_Input, TRUE,
        MUIA_Listview_List, Object->LV_Continent,
    End;

    GROUP_ROOT_5 = GroupObject,
        Child, Object->LV_Continent,
    End;

    Object->WI_Sel_Cont = WindowObject,
        MUIA_Window_Title, "Continent",
        MUIA_HelpNode, "WI_Sel_Cont",
        MUIA_Window_ID, MAKE_ID('4', 'W', 'I', 'N'),
        WindowContents, GROUP_ROOT_5,
    End;

    Object->STR_PA_chargement_fond = String("", 80);

    Object->PA_chargement_fond = PopButton(MUII_PopFile);

    Object->PA_chargement_fond = PopaslObject,
        MUIA_HelpNode, "PA_chargement_fond",
        MUIA_Popasl_Type, 0,
        MUIA_Popstring_String, Object->STR_PA_chargement_fond,
        MUIA_Popstring_Button, Object->PA_chargement_fond,
    End;

    Object->BT_Redraw_Ext_Data = TextObject,
        ButtonFrame,
        MUIA_Weight, 63,
        MUIA_ControlChar, 'r',
        MUIA_Text_Contents, "Background On",
        MUIA_Text_PreParse, "\033c",
        MUIA_Text_HiChar, 'r',
        MUIA_HelpNode, "BT_Redraw_Ext_Data",
        MUIA_InputMode, MUIV_InputMode_RelVerify,
    End;

    Object->BT_Effacer_Fond = TextObject,
        ButtonFrame,
        MUIA_Weight, 42,
        MUIA_ControlChar, 'e',
        MUIA_Text_Contents, "Background Off",
        MUIA_Text_PreParse, "\033c",
        MUIA_Text_HiChar, 'e',
        MUIA_HelpNode, "BT_Effacer_Fond",
        MUIA_InputMode, MUIV_InputMode_RelVerify,
    End;

    GR_grp_11 = GroupObject,
        MUIA_Group_Horiz, TRUE,
        MUIA_Group_SameSize, TRUE,
        MUIA_Group_HorizSpacing, TRUE,
        MUIA_Group_VertSpacing, TRUE,
        Child, Object->BT_Redraw_Ext_Data,
        Child, Object->BT_Effacer_Fond,
    End;

    GROUP_ROOT_6 = GroupObject,
        MUIA_Weight, 690,
        Child, Object->PA_chargement_fond,
        Child, GR_grp_11,
    End;

    Object->WI_Chargement = WindowObject,
        MUIA_Window_Title, "Loading",
        MUIA_HelpNode, "WI_Chargement",
        MUIA_Window_ID, MAKE_ID('5', 'W', 'I', 'N'),
        WindowContents, GROUP_ROOT_6,
    End;

    Object->LV_Elements = ListObject,
        MUIA_Frame, MUIV_Frame_InputList,
    End;

    Object->LV_Elements = ListviewObject,
        MUIA_HelpNode, "LV_Elements",
        MUIA_Weight, 966,
        MUIA_Listview_MultiSelect, MUIV_Listview_MultiSelect_Default,
        MUIA_Listview_DoubleClick, TRUE,
        MUIA_Listview_Input, TRUE,
        MUIA_Listview_List, Object->LV_Elements,
    End;

    GR_grp_30 = GroupObject,
        Child, Object->LV_Elements,
    End;

    Object->TX_Selected_Element = TextObject,
        MUIA_HelpNode, "TX_Selected_Element",
        MUIA_Background, MUII_BACKGROUND,
        MUIA_Text_Contents, Object->STR_TX_Selected_Element,
        MUIA_Text_SetMin, TRUE,
    End;

    Object->TX_Pays = TextObject,
        MUIA_HelpNode, "TX_Pays",
        MUIA_Background, MUII_BACKGROUND,
        MUIA_Text_Contents, Object->STR_TX_Pays,
        MUIA_Text_SetMin, TRUE,
    End;

    Object->TX_Latitude = TextObject,
        MUIA_HelpNode, "TX_Latitude",
        MUIA_Background, MUII_BACKGROUND,
        MUIA_Text_Contents, Object->STR_TX_Latitude,
        MUIA_Text_SetMin, TRUE,
    End;

    Object->TX_Longitude = TextObject,
        MUIA_HelpNode, "TX_Longitude",
        MUIA_Background, MUII_BACKGROUND,
        MUIA_Text_Contents, Object->STR_TX_Longitude,
        MUIA_Text_SetMin, TRUE,
    End;

    Object->TX_Caracteristique = TextObject,
        MUIA_HelpNode, "TX_Caracteristique",
        MUIA_Background, MUII_BACKGROUND,
        MUIA_Text_Contents, Object->STR_TX_Caracteristique,
        MUIA_Text_SetMin, TRUE,
    End;

    Space_1 = HVSpace;

    Object->BT_Element_Origine = SimpleButton("Source point");

    Object->BT_Element_Destination = SimpleButton("Target point");

    GR_grp_24 = GroupObject,
        MUIA_Weight, 30,
        MUIA_Frame, MUIV_Frame_Group,
        MUIA_FrameTitle, "Informations",
        Child, Object->TX_Selected_Element,
        Child, Object->TX_Pays,
        Child, Object->TX_Latitude,
        Child, Object->TX_Longitude,
        Child, Object->TX_Caracteristique,
        Child, Space_1,
        Child, Object->BT_Element_Origine,
        Child, Object->BT_Element_Destination,
    End;

    GROUP_ROOT_10 = GroupObject,
        MUIA_Group_Horiz, TRUE,
        Child, GR_grp_30,
        Child, GR_grp_24,
    End;

    Object->WI_Sel_Elem = WindowObject,
        MUIA_Window_Title, "Element",
        MUIA_HelpNode, "WI_Sel_Elem",
        MUIA_Window_ID, MAKE_ID('6', 'W', 'I', 'N'),
        WindowContents, GROUP_ROOT_10,
    End;

    Object->RA_Type_Data = RadioObject,
        MUIA_Frame, MUIV_Frame_Group,
        MUIA_FrameTitle, "Type de donnee",
        MUIA_HelpNode, "RA_Type_Data",
        MUIA_Radio_Entries, Object->RA_Type_DataContent,
    End;

    Object->STR_fichier_Donnee = StringObject,
        MUIA_Frame, MUIV_Frame_String,
        MUIA_HelpNode, "STR_fichier_Donnee",
    End;

    Object->IM_Fichier_Donnee = ImageObject,
        MUIA_Image_Spec, 20,
        MUIA_HelpNode, "IM_Fichier_Donnee",
        MUIA_InputMode, MUIV_InputMode_RelVerify,
        MUIA_Frame, MUIV_Frame_ImageButton,
        MUIA_Image_FreeVert, TRUE,
        MUIA_Image_FreeHoriz, TRUE,
        MUIA_FixHeight, 10,
        MUIA_FixWidth, 8,
    End;

    GR_File_Donnee = GroupObject,
        MUIA_Frame, MUIV_Frame_Group,
        MUIA_FrameTitle, "Selection du fichier de donnees",
        MUIA_Group_Horiz, TRUE,
        Child, Object->STR_fichier_Donnee,
        Child, Object->IM_Fichier_Donnee,
    End;

    Object->LV_Data1 = ListObject,
        MUIA_Frame, MUIV_Frame_InputList,
    End;

    Object->LV_Data1 = ListviewObject,
        MUIA_HelpNode, "LV_Data1",
        MUIA_Listview_MultiSelect, MUIV_Listview_MultiSelect_Default,
        MUIA_Listview_Input, TRUE,
        MUIA_Listview_List, Object->LV_Data1,
    End;

    Object->RA_label_4 = RadioObject,
        MUIA_Frame, MUIV_Frame_Group,
        MUIA_FrameTitle, "radio4_title",
        MUIA_HelpNode, "RA_label_4",
        MUIA_Radio_Entries, Object->RA_label_4Content,
    End;

    Object->LV_Data2 = ListObject,
        MUIA_Frame, MUIV_Frame_InputList,
    End;

    Object->LV_Data2 = ListviewObject,
        MUIA_HelpNode, "LV_Data2",
        MUIA_Listview_MultiSelect, MUIV_Listview_MultiSelect_Default,
        MUIA_Listview_Input, TRUE,
        MUIA_Listview_List, Object->LV_Data2,
    End;

    Object->STR_Coef = StringObject,
        MUIA_Frame, MUIV_Frame_String,
        MUIA_HelpNode, "STR_Coef",
    End;

    obj_aux13 = Label2("Coef Mult:");

    obj_aux12 = GroupObject,
        MUIA_Group_Columns, 2,
        Child, obj_aux13,
        Child, Object->STR_Coef,
    End;

    GR_Virtuel = GroupObject,
        MUIA_Frame, MUIV_Frame_Group,
        MUIA_FrameTitle, "Virtuel",
        MUIA_Group_Horiz, TRUE,
        Child, Object->LV_Data1,
        Child, Object->RA_label_4,
        Child, Object->LV_Data2,
        Child, obj_aux12,
    End;

    LA_Nom_Titre = Label("Nom de la donnee:");

    LA_Nom_Label = Label("<nom>");

    LA_Type_Titre = Label("Type de la donnee");

    LA_Titre_Label = Label("<titre>");

    Object->BT_Maj = SimpleButton("_Maj");

    Space_2 = HVSpace;

    GR_Infos_Donnees = GroupObject,
        MUIA_Frame, MUIV_Frame_Group,
        MUIA_FrameTitle, "Infos",
        MUIA_Group_Columns, 2,
        MUIA_Group_HorizSpacing, FALSE,
        Child, LA_Nom_Titre,
        Child, LA_Nom_Label,
        Child, LA_Type_Titre,
        Child, LA_Titre_Label,
        Child, Object->BT_Maj,
        Child, Space_2,
    End;

    Object->BT_Ajouter_Donnee = SimpleButton("_Ajouter");

    Object->BT_Effacer = SimpleButton("_Effacer");

    GR_Operations = GroupObject,
        MUIA_Frame, MUIV_Frame_Group,
        MUIA_FrameTitle, "Operations:",
        MUIA_Group_Horiz, TRUE,
        Child, Object->BT_Ajouter_Donnee,
        Child, Object->BT_Effacer,
    End;

    GR_Edit_Donnee = GroupObject,
        Child, Object->RA_Type_Data,
        Child, GR_File_Donnee,
        Child, GR_Virtuel,
        Child, GR_Infos_Donnees,
        Child, GR_Operations,
    End;

    Object->WI_Param_Datas = WindowObject,
        MUIA_Window_Title, "PArametrage/Ajout de donnees ",
        MUIA_HelpNode, "WI_Param_Datas",
        MUIA_Window_ID, MAKE_ID('7', 'W', 'I', 'N'),
        WindowContents, GR_Edit_Donnee,
    End;

    Object->LV_Deselect = ListObject,
        MUIA_Frame, MUIV_Frame_InputList,
    End;

    Object->LV_Deselect = ListviewObject,
        MUIA_HelpNode, "LV_Deselect",
        MUIA_Listview_MultiSelect, MUIV_Listview_MultiSelect_Default,
        MUIA_Listview_Input, TRUE,
        MUIA_Listview_List, Object->LV_Deselect,
    End;

    Object->BT_Vers_Deselect = TextObject,
        ButtonFrame,
        MUIA_Weight, 324,
        MUIA_ControlChar, 'b',
        MUIA_Text_Contents, "<---",
        MUIA_Text_PreParse, "\033c",
        MUIA_Text_HiChar, 'b',
        MUIA_HelpNode, "BT_Vers_Deselect",
        MUIA_InputMode, MUIV_InputMode_RelVerify,
    End;

    Object->BT_Vers_Select = TextObject,
        ButtonFrame,
        MUIA_Weight, 327,
        MUIA_ControlChar, 'b',
        MUIA_Text_Contents, "----->",
        MUIA_Text_PreParse, "\033c",
        MUIA_Text_HiChar, 'b',
        MUIA_HelpNode, "BT_Vers_Select",
        MUIA_InputMode, MUIV_InputMode_RelVerify,
    End;

    GR_Vertical_Centre = GroupObject,
        MUIA_Group_VertSpacing, FALSE,
        Child, Object->LV_Deselect,
        Child, Object->BT_Vers_Deselect,
        Child, Object->BT_Vers_Select,
    End;

    Object->LV_Select = ListObject,
        MUIA_Frame, MUIV_Frame_InputList,
    End;

    Object->LV_Select = ListviewObject,
        MUIA_HelpNode, "LV_Select",
        MUIA_Listview_MultiSelect, MUIV_Listview_MultiSelect_Default,
        MUIA_Listview_Input, TRUE,
        MUIA_Listview_List, Object->LV_Select,
    End;

    GR_Horizontal_Gauche = GroupObject,
        MUIA_Weight, 1000,
        MUIA_Frame, MUIV_Frame_Group,
        MUIA_FrameTitle, "Countries selection",
        MUIA_Group_Horiz, TRUE,
        Child, GR_Vertical_Centre,
        Child, Object->LV_Select,
    End;

    Object->BT_Continent = SimpleButton("_Continent....");

    Object->BT_Petits_Pays = SimpleButton("Small countries");

    Object->BT_Tout_Des = SimpleButton("Deselec_t all");

    Object->BT_Tout_Sel = SimpleButton("Select all");

    GR_Action = GroupObject,
        MUIA_Weight, 1000,
        MUIA_Frame, MUIV_Frame_Group,
        MUIA_FrameTitle, "Action",
        MUIA_Group_Columns, 2,
        Child, Object->BT_Continent,
        Child, Object->BT_Petits_Pays,
        Child, Object->BT_Tout_Des,
        Child, Object->BT_Tout_Sel,
    End;

    GR_Vertical_Gauche = GroupObject,
        MUIA_Weight, 347,
        Child, GR_Horizontal_Gauche,
        Child, GR_Action,
    End;

    Object->RA_Type_Graph = RadioObject,
        MUIA_Weight, 0,
        MUIA_Frame, MUIV_Frame_Group,
        MUIA_FrameTitle, "Graph type",
        MUIA_HelpNode, "RA_Type_Graph",
        MUIA_Radio_Entries, Object->RA_Type_GraphContent,
    End;

    Object->LV_Datas = ListObject,
        MUIA_Frame, MUIV_Frame_InputList,
    End;

    Object->LV_Datas = ListviewObject,
        MUIA_HelpNode, "LV_Datas",
        MUIA_Weight, 941,
        MUIA_Listview_MultiSelect, MUIV_Listview_MultiSelect_Default,
        MUIA_Listview_Input, TRUE,
        MUIA_Listview_List, Object->LV_Datas,
    End;

    Object->BT_Editer = SimpleButton("_Modify...");

    Object->BT_Supprimer = SimpleButton("Delete");

    Object->BT_Ajouter = SimpleButton("Add");

    Object->BT_Ok_Datas = TextObject,
        ButtonFrame,
        MUIA_Weight, 0,
        MUIA_ControlChar, 'b',
        MUIA_Text_Contents, "OK",
        MUIA_Text_PreParse, "\033c",
        MUIA_Text_HiChar, 'b',
        MUIA_HelpNode, "BT_Ok_Datas",
        MUIA_InputMode, MUIV_InputMode_RelVerify,
    End;

    GR_Vertical_Droite = GroupObject,
        MUIA_Weight, 0,
        Child, Object->RA_Type_Graph,
        Child, Object->LV_Datas,
        Child, Object->BT_Editer,
        Child, Object->BT_Supprimer,
        Child, Object->BT_Ajouter,
        Child, Object->BT_Ok_Datas,
    End;

    GROUP_ROOT_8 = GroupObject,
        MUIA_Group_Horiz, TRUE,
        Child, GR_Vertical_Gauche,
        Child, GR_Vertical_Droite,
    End;

    Object->WI_Datas = WindowObject,
        MUIA_Window_Title, "Data Display Preferences",
        MUIA_HelpNode, "WI_Datas",
        MUIA_Window_ID, MAKE_ID('8', 'W', 'I', 'N'),
        WindowContents, GROUP_ROOT_8,
    End;

    Object->STR_Trajectoire_Fichier = StringObject,
        MUIA_Frame, MUIV_Frame_String,
        MUIA_HelpNode, "STR_Trajectoire_Fichier",
    End;

    obj_aux15 = Label2("File:");

    obj_aux14 = GroupObject,
        MUIA_Group_Columns, 2,
        Child, obj_aux15,
        Child, Object->STR_Trajectoire_Fichier,
    End;

    Object->IM_Trajectoire_Choix = ImageObject,
        MUIA_Image_Spec, 20,
        MUIA_HelpNode, "IM_Trajectoire_Choix",
        MUIA_InputMode, MUIV_InputMode_RelVerify,
        MUIA_Frame, MUIV_Frame_ImageButton,
        MUIA_Image_FreeVert, TRUE,
        MUIA_Image_FreeHoriz, TRUE,
        MUIA_FixHeight, 10,
        MUIA_FixWidth, 8,
    End;

    GR_grp_28 = GroupObject,
        MUIA_Group_Horiz, TRUE,
        Child, obj_aux14,
        Child, Object->IM_Trajectoire_Choix,
    End;

    Object->BT_Trajectoire_OK = SimpleButton("OK");

    Object->BT_Trajectoire_Cancel = SimpleButton("Cancel");

    GR_grp_29 = GroupObject,
        MUIA_Group_Horiz, TRUE,
        Child, Object->BT_Trajectoire_OK,
        Child, Object->BT_Trajectoire_Cancel,
    End;

    Object->STR_PA_chargement_trajectoire = String("", 80);

    Object->PA_chargement_trajectoire = PopButton(MUII_PopUp);

    Object->PA_chargement_trajectoire = PopaslObject,
        MUIA_HelpNode, "PA_chargement_trajectoire",
        MUIA_Popasl_Type, 0,
        MUIA_Popstring_String, Object->STR_PA_chargement_trajectoire,
        MUIA_Popstring_Button, Object->PA_chargement_trajectoire,
    End;

    GROUP_ROOT_13 = GroupObject,
        MUIA_Frame, MUIV_Frame_Group,
        MUIA_FrameTitle, "Select a Path",
        Child, GR_grp_28,
        Child, GR_grp_29,
        Child, Object->PA_chargement_trajectoire,
    End;

    Object->WI_Trajectoire = WindowObject,
        MUIA_Window_Title, "Path",
        MUIA_HelpNode, "WI_Trajectoire",
        MUIA_Window_ID, MAKE_ID('9', 'W', 'I', 'N'),
        WindowContents, GROUP_ROOT_13,
    End;

    Object->CY_organisation = CycleObject,
        MUIA_HelpNode, "CY_organisation",
        MUIA_Cycle_Entries, Object->CY_organisationContent,
    End;

    LA_organisation_officiel = Label("offical name:");

    Object->TX_organisation_officiel = TextObject,
        MUIA_HelpNode, "TX_organisation_officiel",
        MUIA_Background, MUII_BACKGROUND,
        MUIA_Text_Contents, Object->STR_TX_organisation_officiel,
        MUIA_Text_SetMin, TRUE,
    End;

    GR_info_organisation = GroupObject,
        MUIA_Weight, 0,
        MUIA_Group_Horiz, TRUE,
        Child, LA_organisation_officiel,
        Child, Object->TX_organisation_officiel,
    End;

    Object->LV_organisation = FloattextObject,
        MUIA_Frame, MUIV_Frame_ReadList,
    End;

    Object->LV_organisation = ListviewObject,
        MUIA_HelpNode, "LV_organisation",
        MUIA_Listview_MultiSelect, MUIV_Listview_MultiSelect_Default,
        MUIA_Listview_Input, TRUE,
        MUIA_Listview_List, Object->LV_organisation,
    End;

    GROUP_ROOT_organisation = GroupObject,
        Child, Object->CY_organisation,
        Child, GR_info_organisation,
        Child, Object->LV_organisation,
    End;

    Object->WI_Organisation = WindowObject,
        MUIA_Window_Title, "Info about organizations",
        MUIA_HelpNode, "WI_Organisation",
        MUIA_Window_ID, MAKE_ID('1', '0', 'W', 'I'),
        WindowContents, GROUP_ROOT_organisation,
    End;

    Object->TX_nom_element = TextObject,
        MUIA_HelpNode, "TX_nom_element",
        MUIA_Background, MUII_BACKGROUND,
        MUIA_Text_Contents, Object->STR_TX_nom_element,
        MUIA_Text_SetMin, TRUE,
    End;

    Object->TX_type_element = TextObject,
        MUIA_HelpNode, "TX_type_element",
        MUIA_Background, MUII_BACKGROUND,
        MUIA_Text_Contents, Object->STR_TX_type_element,
        MUIA_Text_SetMin, TRUE,
    End;

    Object->TX_pays_element = TextObject,
        MUIA_HelpNode, "TX_pays_element",
        MUIA_Background, MUII_BACKGROUND,
        MUIA_Text_Contents, Object->STR_TX_pays_element,
        MUIA_Text_SetMin, TRUE,
    End;

    LA_lat = Label("Longitude:");

    Object->TX_longitude_element = TextObject,
        MUIA_HelpNode, "TX_longitude_element",
        MUIA_Background, MUII_BACKGROUND,
        MUIA_Text_Contents, Object->STR_TX_longitude_element,
        MUIA_Text_SetMin, TRUE,
    End;

    GR_grp_41 = GroupObject,
        MUIA_Group_Horiz, TRUE,
        Child, LA_lat,
        Child, Object->TX_longitude_element,
    End;

    LA_latitude_element = Label("Latitude:");

    Object->TX_latitude_element = TextObject,
        MUIA_HelpNode, "TX_latitude_element",
        MUIA_Background, MUII_BACKGROUND,
        MUIA_Text_Contents, Object->STR_TX_latitude_element,
        MUIA_Text_SetMin, TRUE,
    End;

    GR_grp_42 = GroupObject,
        MUIA_Group_Horiz, TRUE,
        Child, LA_latitude_element,
        Child, Object->TX_latitude_element,
    End;

    Object->TX_caracteristique_element = TextObject,
        MUIA_HelpNode, "TX_caracteristique_element",
        MUIA_Background, MUII_BACKGROUND,
        MUIA_Text_Contents, Object->STR_TX_caracteristique_element,
        MUIA_Text_SetMin, TRUE,
    End;

    Object->BT_voir_donnee_externe = SimpleButton("Watch external associeted data");

    GROUP_ROOT_INFO_ELEM = GroupObject,
        Child, Object->TX_nom_element,
        Child, Object->TX_type_element,
        Child, Object->TX_pays_element,
        Child, GR_grp_41,
        Child, GR_grp_42,
        Child, Object->TX_caracteristique_element,
        Child, Object->BT_voir_donnee_externe,
    End;

    Object->WI_Info_Element = WindowObject,
        MUIA_Window_Title, "Information about Element",
        MUIA_HelpNode, "WI_Info_Element",
        MUIA_Window_ID, MAKE_ID('1', '1', 'W', 'I'),
        WindowContents, GROUP_ROOT_INFO_ELEM,
    End;

    LA_classement = Label("sorting by:");

    Object->TX_classement = TextObject,
        MUIA_HelpNode, "TX_classement",
        MUIA_Background, MUII_BACKGROUND,
        MUIA_Text_Contents, Object->STR_TX_classement,
        MUIA_Text_SetMin, TRUE,
    End;

    GR_grp_45 = GroupObject,
        MUIA_Group_Horiz, TRUE,
        Child, LA_classement,
        Child, Object->TX_classement,
    End;

    Object->LV_classement = ListObject,
        MUIA_Frame, MUIV_Frame_InputList,
    End;

    Object->LV_classement = ListviewObject,
        MUIA_HelpNode, "LV_classement",
        MUIA_Listview_MultiSelect, MUIV_Listview_MultiSelect_Default,
        MUIA_Listview_Input, TRUE,
        MUIA_Listview_List, Object->LV_classement,
    End;

    GROUP_ROOT_17 = GroupObject,
        Child, GR_grp_45,
        Child, Object->LV_classement,
    End;

    Object->WI_Classement = WindowObject,
        MUIA_Window_Title, "Show data by list",
        MUIA_HelpNode, "WI_Classement",
        MUIA_Window_ID, MAKE_ID('1', '2', 'W', 'I'),
        WindowContents, GROUP_ROOT_17,
    End;

    REC_label_0 = RectangleObject,
    End;

    GROUP_ROOT_info = GroupObject,
        Child, REC_label_0,
    End;

    Object->WI_Info = WindowObject,
        MUIA_Window_Title, "info on:",
        MUIA_Window_ID, MAKE_ID('1', '3', 'W', 'I'),
        WindowContents, GROUP_ROOT_info,
    End;

    Object->App = ApplicationObject,
        MUIA_Application_Author, "Thomas Landspurg & Olivier Collard",
        MUIA_Application_Base, "AmiGlobe",
        MUIA_Application_Title, "AmiGlobe",
        MUIA_Application_Version, "$VER: 0.99 (17-11-94)",
        MUIA_Application_Copyright, "Thomas Landspurg & Olivier Collard",
        MUIA_Application_Description, "Geographical atlas",
        SubWindow, Object->WI_Cmd,
        SubWindow, Object->WI_Param,
        SubWindow, Object->WI_Sel_Cty,
        SubWindow, Object->WI_Cmd_Panel,
        SubWindow, Object->WI_Sel_Cont,
        SubWindow, Object->WI_Chargement,
        SubWindow, Object->WI_Sel_Elem,
        SubWindow, Object->WI_Param_Datas,
        SubWindow, Object->WI_Datas,
        SubWindow, Object->WI_Trajectoire,
        SubWindow, Object->WI_Organisation,
        SubWindow, Object->WI_Info_Element,
        SubWindow, Object->WI_Classement,
        SubWindow, Object->WI_Info,
    End;


    if (!Object->App)
    {
        FreeVec(Object);
        return(NULL);
    }

    DoMethod(Object->WI_Cmd,
        MUIM_Window_SetCycleChain, Object->BT_Zoom,
        Object->BT_Zoom_Out,
        Object->BT_Redraw,
        Object->BT_Zoom_Reset,
        Object->BT_Info,
        Object->CY_Proj,
        0
        );

    DoMethod(Object->WI_Param,
        MUIM_Window_SetCycleChain, Object->CH_Lacs,
        Object->CH_Riv,
        Object->CH_LonLat,
        Object->CH_Noms,
        Object->CH_Coord,
        Object->CH_Fill_Pays,
        Object->CH_Elements,
        Object->CH_Trajectoires,
        Object->CH_Distance,
        Object->CH_Scale,
        Object->CH_Area,
        Object->SL_x,
        Object->SL_y,
        Object->SL_z,
        Object->IM_Rectangle,
        0
        );

    DoMethod(Object->WI_Sel_Cty,
        MUIM_Window_SetCycleChain, Object->LV_Pays,
        0
        );

    DoMethod(Object->WI_Cmd_Panel,
        MUIM_Window_SetCycleChain, Object->BT_Move,
        Object->BT_Show_Pt,
        Object->BT_Show_Seg,
        Object->BT_Edit,
        Object->BT_Create_Pays,
        Object->BT_New_Border,
        Object->BT_New_Point,
        Object->BT_End_Border,
        Object->STR_Nom_Border,
        Object->STR_Code,
        Object->SL_Code_Point,
        0
        );

    DoMethod(Object->WI_Sel_Cont,
        MUIM_Window_SetCycleChain, Object->LV_Continent,
        0
        );

    DoMethod(Object->WI_Chargement,
        MUIM_Window_SetCycleChain, Object->PA_chargement_fond,
        Object->BT_Redraw_Ext_Data,
        Object->BT_Effacer_Fond,
        0
        );

    DoMethod(Object->WI_Sel_Elem,
        MUIM_Window_SetCycleChain, Object->LV_Elements,
        Object->BT_Element_Origine,
        Object->BT_Element_Destination,
        0
        );

    DoMethod(Object->WI_Param_Datas,
        MUIM_Window_SetCycleChain, Object->RA_Type_Data,
        Object->STR_fichier_Donnee,
        Object->IM_Fichier_Donnee,
        Object->LV_Data1,
        Object->RA_label_4,
        Object->LV_Data2,
        Object->STR_Coef,
        Object->BT_Maj,
        Object->BT_Ajouter_Donnee,
        Object->BT_Effacer,
        0
        );

    DoMethod(Object->WI_Datas,
        MUIM_Window_SetCycleChain, Object->LV_Deselect,
        Object->BT_Vers_Deselect,
        Object->BT_Vers_Select,
        Object->LV_Select,
        Object->BT_Continent,
        Object->BT_Petits_Pays,
        Object->BT_Tout_Des,
        Object->BT_Tout_Sel,
        Object->RA_Type_Graph,
        Object->LV_Datas,
        Object->BT_Editer,
        Object->BT_Supprimer,
        Object->BT_Ajouter,
        Object->BT_Ok_Datas,
        0
        );

    DoMethod(Object->WI_Trajectoire,
        MUIM_Window_SetCycleChain, Object->STR_Trajectoire_Fichier,
        Object->IM_Trajectoire_Choix,
        Object->BT_Trajectoire_OK,
        Object->BT_Trajectoire_Cancel,
        Object->PA_chargement_trajectoire,
        0
        );

    DoMethod(Object->WI_Organisation,
        MUIM_Window_SetCycleChain, Object->CY_organisation,
        Object->LV_organisation,
        0
        );

    DoMethod(Object->WI_Info_Element,
        MUIM_Window_SetCycleChain, Object->BT_voir_donnee_externe,
        0
        );

    DoMethod(Object->WI_Classement,
        MUIM_Window_SetCycleChain, Object->LV_classement,
        0
        );

    DoMethod(Object->WI_Info,
        MUIM_Notify, MUIA_Window_CloseRequest, TRUE,
        Object->WI_Info,
        3,
        MUIM_Set, MUIA_Window_Open, FALSE
        );

    DoMethod(Object->WI_Info,
        MUIM_Window_SetCycleChain, 0
        );


    return(Object);
}

void DisposeApp(struct ObjApp * Object)
{
    MUI_DisposeObject(Object->App);
    FreeVec(Object);
}